﻿<!--#include file="conn.inc"-->
<!--#include file="inc/shw.inc"-->
<!--#include file="inc/qingclass.inc"-->
<!--#include file="inc/md5.inc"-->
<!--#include file="sql.inc"-->
<!--#include file="inc/qinglog.inc"-->
<!--#include file="inc/qingtj.inc"-->
<!--#include file="inc/qingong.inc"-->
<%
dim qingtian,sid,sidd,siddd,v,fv,midqd,fa
Set qingtian = New qingtian_class
sidd=Request.QueryString("sid")
fa=Request.QueryString("fa")
if fa<>"" then response.cookies("fa")=fa
siddd=Split(sidd,"-")
sid=siddd(0)
v=siddd(1)
fv=siddd(2)
midqd=siddd(3)
if midqd="" or midqd=0 then midqd=1
if not isnumeric(midqd) then midqd=1
midqd=clng(midqd)
if sid="" then sid="Null"
if request.cookies("sid")<>"" and sid="Null" then sid=request.cookies("sid")
if v="" then
dim ppwap,pppwap
	ppwap=Left(Request.ServerVariables("HTTP_USER_AGENT"),4)
        pppwap=right(Request.ServerVariables("HTTP_ACCEPT"),10)
	if instr(ppwap,"Oper")>0 or instr(ppwap,"Smar")>0 or instr(ppwap,"Symb")>0 or instr(ppwap,"NetF")>0 or instr(ppwap,"Winw")>0 or instr(ppwap,"Wapi")>0 or instr(ppwap,"Mc21")>0 or instr(ppwap,"Up.b")>0 or instr(ppwap,"Upg1")>0 or instr(ppwap,"Upsi")>0 or instr(ppwap,"Qwap")>0 or instr(ppwap,"Jigs")>0 or instr(ppwap,"Java")>0 or instr(ppwap,"Alca")>0 or instr(ppwap,"Wapj")>0 or instr(ppwap,"Fetc")>0 or instr(ppwap,"R380")>0 or instr(ppwap,"Mozi")>0 or instr(ppwap,"M3ga")>0 or instr(ppwap,"CE")>0 or instr(pppwap,"UC")>0 then
v=1
fv="a"
         else
v=0
fv="a"
         end if
end if
cp.qingtiana
shuchu
Function qingtiant
%>
